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ABSTRACT t Digital filters can be realized with remarkably small computational 
burden as polyphase recursive all-pass networks. These networks are formed as a 
sum of M parallel all-pass subfilters with phase shifts selected to add construc- 
tively in the passband and destructively in the stopband. The design technique we 
present here starts with prototype M-path recursive all-pass filters obtained by 
a new optimizing algorithm (described in detail elsewhere). These filters are 
operated with combinations of all-pass transformations, resampling, and cascading 
options. We demonstrate a number of designs using the new algorithm along with 
examples of filtering systems obtained by the techniques presented. 



1. INTRODUCTION 

A standard finite impulse response (FIR) 
filter can. be modeled, as indicated in Fig. 
1, as the weighted summation of the contents 
of a tapped delay line. This, summation is 
shown in (1) and the transfer function of 
this filter is shown in (2). 
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FIGURE 1. TAPPED DELAY LINE FIR FILTER 

We note the frequency selective characteris- 
tics of the filter output is due to the 
phase shift between successive samples in 
the tapped delay line. This phaser summation 
is shown in Fig. 2 for two different fre- 
quencies. 

Note that it is the phase shift, and not the 
weighting terms which is responsible for the 
frequency dependent gain of the filter. The 
weighting terms are used primarily to con- 
trol passband width and stopband attenuation 
of the filter. An idea derived from spatial 
beamforming (known as beam spoiling) (1) and 
from signal synthesis (peak-to-rms control) 
(2) is to use structured* phase shifts (with 
arbitrary amplitudes) to accomplish the same 
goal. 



FIGURE 2. PHASOR SUMMATION OF FIR FILTER 
OUTPUT FOR TWO FREQUENCIES 

The class of filters we describe here re- 
places the weights of the FIR filter with 
all-pass subfilters which exhibit unity gain 
with frequency dependent phase shift. In 
anticipation of the polyphase structure, the 
all-pass subfilters are, as shown in (3) and 
Fig. 3, first order polynomials in Z'" where 
M is the number of taps in the structure. 
This composite form is indicated in Fig. 4a 
with a modified form reflecting a polyphase 
structure in 4b. The transfer function of 
this structure is shown in (4). 
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FIGURE 3. H-TH ORDER ALL- PASS SUBFILTER 
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Fig. T show examples of equal ripple designs 
obtained from this new algorithm for a 2- 
path and for a 5-path filter with two and 
three all-pass stages per path respectively. 
Interacting constraints on the optimal de- 
sign (described in the aforementioned paper) 
limit the possible number of stages per path 
for the 5-path filter to the sequences 
(1,1,1,1,0), (2,2,2 f l,,l), (3,3,2,2,2) , etc., 
so that the optimum 5-path filter uses three 
less stages than allocated to the design. 
Similarly the 2-path filter is limited to 
the sequences (1,0), (1,1), (2,1), (2,2), 
(2,3), (3,3), etc. 

2. TWO PATH FILTERS 

We find a wealth of interesting properties 
and clever applications for this structure 
even if we limit our discussion to a 2-path 
filter. As designed, the 2-path filter is a 
half bandwidth filter with the 3-dB band- 
width at 0.25 f t . If the zeros are restricted 
to the half sampling frequency, the filter 
identical to a half bandwidth Butterworth 
obtained by the standard warped bilinear 
transform. For this special case, the real 
parts of the root locations go to zero. If 
the zeros are optimized for equal ripple 
stop band behavior the filter becomes a 
constrained Elliptic filter. The constraints 
are related to a property of complementary 
all-pass filters. We define the all-pass 
sections for the 2-path filter as H 0 (G) and 
H,(8) and, as indicated in Fig. 8, the scaled 
by one-half sum and difference of these 
paths by A(G) and B(9) , the lowpass and 
highpass filters, respectively. We know that 
the all-pass sections satisfy (5) from which 
we derive the power relationship between the 
lowpass and highpass filters shown in (6). 



For small e,, we can ignore (e.) 2 which leads 
to (8) . 

e, - 0.5 (<,)' (8) 

Thus if the stopband attenuation is selected 
to be 0.001 (60.0 dB) , the passband ripple 
is 0.000 000 5 (126.0 dB) or the passband 
minimum gain is 0.999 999 5 (-0.000 000 22 
dB) . As can be seen these filters have a 
remarkably flat passband. We conclude that 
the 2-path equal ripple stopband filters are ! 
elliptic filters with coupled passband and I 
stopband ripple with -3.0 dB gain at 0.25 t % . I 
There are two significant differences be- j 
tween the 2-path and the standard Impleroen- ' 
tatlon of the equivalent elliptic filter. 
The first is a four-to-one savings in multi- 
plications; a fifth order half bandwidth 2- I 
path filter requires only two coefficients 
as opposed to the direct implementation 
which requires eight (scaling included) . The 
second is that all-pass structures exhibit 
unity gain to internal states hence do not 
require extended precision registers to 
store internal states as do standard imple- 
mentations. 

As with any filter design, the transition 
bandwidth can be traded for out of band 
attenuation for a fixed order or transition 
bandwidth can be steepened for a fixed 
attenuation by increasing filter order. 
While nomographs exist for the elliptic and 
Butterworth filters which can be implemented 
by the 2-path structure, a simple approxi- 
mate relationship for the equal ripple 
filter is given in (9), where A (dB) is 
attenuation in dB, Af is transition band- 
width, and N is the total number of all-pass 
segments in the filter. 
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FIGURE 8. COMPLEMENTARY LOWPASS AND HIGHPASS 
FILTERS FROM 2-PATH ALL-PASS NETWORK 

|H 0 (6)| 2 « |h,(6)| 2 = 1 (5) 

I A(8) | 2 +| B(9) |* « |0.5[H 0 (e)+H t (e))| ? (6a) 

+ |0.5(H 0 (6)-H 1 (e)}| 2 

»0.5[|H 0 <8) M+lH^O)! 2 ) (6b) 

- 1 (6C) 

Now to interpret how this relationship 
impacts the 2-path filter. For the comple- 
mentary filters we define the minimum pass- 
band gain of by 1-Ct and the peak stopband 
gain by c ? . Substituting these gains in (6) 
we obtain (7) . 



(1-e,) 2 + [€ 2 ) 2 «= 1 
(1-e,)* - 1 - (e^) 2 
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2A. HILBERT TRANSFORM FILTERS 



The Hilbert Transform (HT) can be thought of 
as a particular type of half band filter. It 
is modelled and implemented by a wide band 
90* phase shifting network. The HT is often 
used in DSP applications to form the analyt- 
ic signal a(n) as shown in (10), a signal 
with spectra limited to the positive (or 
negative) frequency band. 



a(n) «.x(n) + j x(n) 



(10) 



We can cast the 2-path filter as a HT in a 
number of ways but a simple method, akin to 
the transformation performed on a half band 
FIR filter [4], is a heterodyne of the half 
band filter to the quarter sample frequency. 
If the original filter response and trans- 
form are denoted by h(n) and H(Z) respec- 
tively, then the heterodyned expressions can 
be easily seen to be those in (11). 

h(n) «> h(n) e ,rTf " - h(n) (j) n (11a) 

H(Z) -> H(2 e ,,/? ) - H(j Z) (lib) 

The transformation of a half band filter to 
an HT filter is accomplished by replacing 
each Z' y of the transfer function with -jZ* 1 - 
Since the polynomials of the all-pass sub- 
filters are second order, this transfor- 



nation can be accomplished by changing the 
sign of the coefficient used in each all- 
pnos nub filter and by associating a -j with 
the lower path delay. These operations ere 
indicated in Fig. 9. 



of Fig. 7. is used for up sampling we would 
perform 3 multiplications per output point* 
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FIGURE 9. HILBERT TRANSFORM ALL-PASS FILTER 
REALIZATION AS TRANSFORMED HALF BAND FILTER 

2B. INTERPOLATION AND DECIMATION FILTERS 

Any half bandwidth filter can be used to 
perform 2-to-l resampling (up or down, 
popularly identified as interpolation and 
decimation). Finite impulse response (FIR) 
filters can be operated with a polyphase 
partition which does not process inserted 
zero input points (up-sampling) or compute 
the discarded output points (down sampling) . 
While this option is not available for the 
general recursive filter, it is an option 
for the recursive all-pass H-path filter. 
The M-path filter can be partitioned into 
polyphase segments because of the interac- 
tion of the internal delays of the M-th 
order subfilters and the delay line of each 
path. This relationship is particularly easy 
to see for the 2-path filter. An impulse 
applied at index n 0 makes a contribution to 
the output at the same time via the upper 
path while an output is not available from 
the lower path till the next index due to 
its extra delay Z' x l During that same next 
index, the upper path offers no contribution 
to the output because there is no Z* 1 path 
associated with its Z* 2 polynomial. Thus the 
filter delivers successive samples of its 
impulse response from alternate paths of the 
filter. 

Down sampling is accomplished by delivering 
alternate input samples to each path of the 
filter operating at the reduced input rate. 
Since the delay of the second path is ac- 
complished by the input commutation the 
physical delay element in that path is re- 
moved. The filtered and down sampled out-put 
is generated by the sum or difference of the 
two path responses. Note that the compu- 
tation rate per input sample point is half 
that of the non resampled filter, thus if 
the 2-path filter of Fig. 7 is used for down 
sampling we would perform 3 multiplications 
per input point. 

Up sampling is accomplished by reversing the 
down sampling process. This entails deliver- 
ing the same input to the two paths and com- 
mutating between their outputs. Both forms 
of resampling are shown in Fig. 10. As in 
the previous example, when the 2-path filter 
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FIGURE 10. RESAMPLING 2-PATH ALL- PASS FILTER 

The cascade operation of down sampling and 
up sampling of the complementary outputs 
performs two band maximally decimated quad- 
rature mirror filtering and reconstruction 
151. 

Cascading multiple stages of up sampling or 
down sampling filters can achieve high order 
sample rate change with remarkably small 
workload per data point. For instance, a 1- 
to-16 up sampler with 96 dB dynamic range 
for a signal with cutoff frequency of 0.4 f § 
requires 2-path filters with successively 
smaller number of all-pass stages of orders 
(3,3), (2,2), (2,1), and (1,1). This re- 
quires a total of 42 multiplications for 16 
outputs, for an average workload of approxi- 
mately 2.7 operations per output point. 

2C. ITERATED POLYPHASE ALL- PASS FILTERS 

The all-pass networks described earlier are 
formed by polynomials in Z" and specifically 
for the 2-path filters Z* . A useful trans- 
formation is to replace each Z" 2 with Z" 2 *, to 
obtain higher order filters exhibiting K- 
fold spectral replication of the original 
filter. For K=2, the half band filter cen- 
tered at DC becomes a pair of quarter band 
filters centered at DC and f t /2. An example 
of spectral replication for the iterated 
filter is shown in Fig. 11. 




FIGURE 11. 8PECTRUM OF ITERATED 2-PATH 
FILTER: POLYNOMIALS IN 2* 




Note that this transformation scales the 
prototype filter's spectrum by 1/K, reducing 
both pnssband width and transition width. 
Thus very steep transition bandwldths and 
narrow filters can be realized by the use of 
low order polynomials of degree 2K obtained 
via delay elements. Energy in the replicated 
spectral regions can be removed by a se- 
quence of filters | incorporating various 
degrees of resampling and iterated filters 
of reduced degree. 

3. EFFICIENT ALL-PASS FILTER BANKS. 

Efficient spectral partitioning can be ob- 
tained by cascading and resampling the out- 
puts of iterated lowpass and HT filters. For 
instance the spectra of a four channel 
filter bank centered on the four quadrants 
can be formed with a complementary half band 
filter followed by a pair of resampled HT 
filters as shown on the left side of Fig. 
12. The workload for this 70 dB attenuation 
filter set is 3 multiplications per output 
channel. 

A four channel filter bank straddling the 
previous set (ie. centered on the four 
cardinal directions) can be formed with an 
iterated by two complementary half band 
filter followed by both a complementary half 
band resampled filter and a resampled HT 
filter. This spectra of this filter set is 
shown on the right side of Fig. 12. The 
workload for this 70 dB attenuation filter 
set is 2 multiplications per output channel. 



point resides at frequency 0 0 . When G 0 is 
different from w/2 the second order polyno- 
mials of the all-pass subfilters acquire 

coefficients for the Z* 1 term. The resulting 
filter requires two multiplications per pole 
zero pair which is still half the workload 
of the traditional canonic forms. In addi- 
tion, the pole at the origin (due to the 
delay of the second path) transforms to a 
first order all-pass filter thus converting 
an inactive pole to an active one requiring 
an additional first order stage. Fig. 13 
presents the frequency warped version of the 
filter presented in Fig. 7a. Both this 
filter and its complement are available from 
the warped structure. 
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FIGURE 12. SPECTRA OF FOUR CHANNEL QUADRANT 
CENTERED AND CARDINAL CENTERED FILTER BANK 

4. OTHER ALL- PASS TRANSFORMATIONS 

The prototype complementary all-pass filter 
set can also be transformed to filters of 
arbitrary bandwidth and of arbitrary center 
frequency by standard all-pass transforma- 
tions [6). The lowpass transformation for 
the half band filter is shown in (12). 



Z" 1 => 
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FIGURE 13. LOWPASS TRANSFORMATION OF ALL- 
PASS FILTER 

The bandpass transformation is presented in 
(13). 

c - Z* 1 

z* 1 «> -z* 1 c = cos(e.) (i3) 

1 - c Z' 1 

This transformation warps the frequency 
variable of the filter so that the center 
I ' / — • — \ ■ frequency resides at frequency 0,. If 8. is 

J 1 — ' — ■ — 1 ' equal to 0.0 this transformation is equiva- 
lent to the iterated transformation de- 
scribed in 2.C. For any other frequency, 
this transformation converts the second 
order all-pass filters to fourth order all- 
pass structures. This requires four multi- 
plications to form four pole-zero pairs of 
the resultant filter which is still half the 
workload of the traditional canonic forms. 
In addition, the transformation converts the 
real pole (which 1b an image of the pole 
originally at the origin) to a pair of com- 
plex poles requiring a second order all-pass 
stage. Fig. 14 presents the frequency warped 
version of the filter presented in Fig. 14. 
As earlier, both this filter and its comple- 
ment are available from the warped struc- 
ture. 
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(12) 



This transformation warps the frequency 
variable of the filter so that the -3 dB 



Other transformations and geometries [7] can 
be used with the digital all-pass structure 
and the reader is directed to the bibliogra- 
phy of the listed papers for a profusion of 
options. 
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FIGURE 4A. ALL- PASS FILTER STRUCTURE 
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FIGURE 4B. POLYPHASE ALL-FA88 STRUCTURE 

1 + a n Z"" 

M-l 



H n (Z*") « 



(3) 



Y(Z) = X(Z) ^H n (Z") Z* n . (4) 



n=0 



The roots of (3), the M-th roots of -a and 
its reciprocal, are equally spaced about the 
origin as shown in Fig. 5 for the indicated 
degrees M. Note that we realize M poles and 
M zeros per multiplication in the all-pass 
stage. This means for instance that a 2-path 
filter offers two poles and two zeros per 
multiplication as opposed to one pole (or 
zero) per multiplication for the standard 
(factored or unfactored) canonic forms. 









As we go around the unit circle we visualize 
that the all-paaa subfilters exhibit rapid 
change in phase in the neighborhood of each 
pole-rero pair. By proper choice of the pole 
positions, the phase shift of each leg of 
the M path filter can be made to match or to 
differ by multiples of 2w/H over selected 
spectral intervals* This is suggested in 
Fig. 6 for M-2 and H=4 . The coefficients of 
the all-pass subfilters can be determined by 
standard algorithms [3 J or by a new algo- 
rithm developed by harris and d'Oreye and 
reported in a paper recently submitted for 
publication (Signal Processing), 
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FIGURE 6. TYPICAL PRASE RESPONSES OF ALL- 
PASS FILTER PATH 8 9 AND CORRESPONDING MAGNI- 
TUDE RESPONSES. 




u 


1 

u 


u 


1 — 

u 


II 


IS 


n . * . 




FIGURE 5. POLE-ZERO DISTRIBUTION FOR M-TH 
ORDER ALL- PA88 SUBFILTERS 



FIGURE 7. POLE-ZERO PLOT AND MAGNITUDE 
RESPONSE FOR 2-PATH AND 3-PATH 
POLYPHASE ALL-PASS NETWORK 
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FIGURE 14. BANDPA88 TRANSFORATION OF 
ALL- PASS FILTER 

5. CONCLUSIONS 

We have reviewed the form and utility of the 
all-pass polyphase filter structure. We then 
presented a number of all-pass transforma- 
tions which could be easily applied to M- 
path all-pass filter sets. The emphasis has 
been on 2-path networks but the material is 
easily extended to arbitrary M. We alluded 
to a new set of algorithms for designing H- 
path filters which will be reported in an 
upcoming Signal Processing paper. We have 
demonstrated capabilities of this algorithm 
by using it to generate the examples pre- 
sented in this paper. 

The primary advantage of these structures is 
very low workload for a given filtering 
task. Other papers [8,9,10) have discussed 
the low sensitivity to finite arithmetic 
exhibited by these filters. The primary 
impediment to the use of these filters is 
their newness and the lack of available 
design methods for computing filter weights. 
This paper (along with excellent surveys 
listen in the bibliography) address the 
first problem and a forthcoming paper ad- 
dresses the second. 
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************** ************ a r\ ***************** 

....... Le H^ sq ^ are v a - tice 

/* r v *™~i * . Noise Cancelling ********************** A 

kSKtiE r ^" metriC aPPr ° aCh t0 "-"cancelling V / 

void OxiLSL_NC( int reset, 

int passes, 

int *signal_i, 

int *signal~2, 

int *signal_3, 

int *target_i, 

int *target_2) { 

Bf . m „ . ii f *r n, contraction; 

iJlJt . * S - a ' * s - b ' * 6 c ' *out a r *out c; 

static float Delta_sqr, scale, noisiref; " 

iff reset « TRUE) { 
6 _ a - signal_l; 
s_b « signal_2; 
G| s - c ~ signal_3; 

out . a 55 target l; 
mi out - c " targets ; 
5$ factor «= 1.5; 

C3Qt scale - 1.0 /4160.0; 

J} '* noise canceller initialization at time t=0 */ 

* nc[0].berr = o.O; 
U| nc[0J .Gamma = l.O; 

H 

y for(m=0; m<NC CELLS; m++) { 
Qj ncfm).err_a~ =* o.O; 
Sk nc(m].err_b = o.O; 
5* nc(m].Roh_a - 0.0; 

nc[m].Roh_c = o.O; 

nc(m). Delta « o.O; 

ncfmj.Fswsqr = 0.00001; 

nc[m},Bswsqr « 0.00001; 

} 

END INITIALIZATION - ^ 

for(k=0; k<passes; k++) { 
contraction « FALSE; 

fo n r ^»"?: b ^ r r- c f LL n s - ( :;:» e ' r! 

^ ncfmj.Bswsqrl ■ nc[m] .Bswsqr; 



noise_ref = factor * log(l.o - <*s a) * scale) 

^ rn , " 1 °9( 1 - 0 " (*s b) * scale) ; 

nc 0 .err_a - log(1.0 - (*s b) * scale); 

nc(0j.err_b = log(i.o - (*s"c) * scale); 



++s_a ; 
++s b; 



m 



nc(0] - f err 
nc(0) .berr 
nc(0) .Fswsqr 
nc[0] .Bsvsqr 



noise_ref ; 
noise_ref ; 

LAMBDA * nc(0). Fswsqr + noise_ref * noise_ref; 
nc[OJ .Fswsqr; 



/* Order Update */ 

for(n°l;( n < NC_CELLS) ££ (contraction 

/* Adaptive Lattice 6ection */ 

m - n-1; 
ii- n-1; 



FALSE); n++) { 



nc(m). Delta *■ 
nc(xn). Delta +« 
Delta_sqr 

nc[n].fref 
nc[n).bref = 

nc[n].ferr = 
nc(n].berr 



LAMBDA; 

nc(m). berrl * nc(m].ferr / nc(m] .Gamma ; 

nc(m). Delta * nc(mj. Delta; 

-nc[m] .Delta / nc[m) .Bswsqrl ; 

-nc(m]. Delta / nc[m] .Fswsqr ; 

nc[m].ferr + nc[nj.fref * nc(mj .berrl; 

nc[mj. berrl + ncfnj.bref * nc(m].ferr; 



nc[n]. Fswsqr ■= nc[m] . Fswsqr - Delta_sqr / nc(mj .Bswsqrl; 
nc[n). Bswsqr = nc(m) .Bswsqrl - Delta_sqr / nc(m) .Fswsqr ; 

iff (nc[n) .Fswsqr + nc[n] .Bswsqr) > 0.00001 | | (n < 5) ) { 

nc(n] .Gamma = nc(m]. Gamma - nc(ra]. berrl * nc[m]. berrl / nc[m] .Bswsqrl; 
if (nc[nj .Gamma < 0.05) nc[n). Gamma «= 0.05; 
if (nc(n] .Gamma > 1.00) nc(n]. Gamma =1.00; 

/* Joint Process Estimation Section */ 

nc(m].Roh_a *= LAMBDA; 

nc(m).Roh_a += nc(m).berr * nc[m].err_a / nc(mj. Gamma ; 



nc(m].k_a «= nc(m].Roh_a 
nc(n).err_a « nc(m].err_a 



/ nc(m) . Bswsqr ; 
• nc[m).k_a * nc(m].berr; 



nc[m).Roh_c *«= LAMBDA; 

nc(m].Roh_c +«= nc(m).berr * nc[m].err_b 
nc[m].k_c ■= nc[m).Roh_c 
nc[n).err_b = nc(m].err_b 



/ nc[m). Gamma ; 
/ nc(m) . Bswsqr ; 
- nc[m).k_c * nc[m).berr; 



) 

else { 

contraction « TRUE; 
for(i«=n; i<NC CELLS; i++) 



{ 



nc(i] , err^a 
nc(i] .Roh_a 
nc[i] . err_b 
nc ( i ) . Roh_c 
nc(i) .Delta 
nc( i) . Fswsqr 
nc( i j . Bswsqr 
nc( i) . Bswsqrl 



0.0; 
0.0; 
0.0; 
0.0; 
0.0; 

0.00001; 
0. 00001; 
0.00001; 



) 

> 

) 

*out_a++ ■= (int)( (-exp(nc(ii).err_a) +1.0) / scale) 

*out_c++ = (int)( (-exp(nc[ii] .err_b) +1.0) / scale) 



) 

) 

/* 



Least: Square Lattice 



APPENDIX C 



/* Normalized Adaptive Noise Canceler 

/include <stdlib.h> 
/include <math.h> 



/define TRUE 
/define FALSE 



1 
0 



/define FLO AT 3 2 
/define INT32 
/define VOID 



float 
long int 
void 



/define FABSF 
/define SQRTF 

/define MAX(a,b) 
/define MIN(a,b) 



(a) 
(a) 



f abs 
sqrt 

(b) ? 
(b) ? 



(a) 
(a) 



(b) 
(b) 



/define MIN_VAL 
/define MAX_DEL 
/define MIN_DEL 
/define MAX_RHO 
/define MIN_RHO 
/define MIN BSERR 

tyg^def struct 
ffi FLO AT 3 2 
f^l FLOAT 3 2 
fQ FLOAT 3 2 
m FLOAT 3 2 
j*4 FLOAT 3 2 
m FLOAT 3 2 



0.01 

0.999999 
T 0. 999999 

2.0 
-2.0 

1E-15 



{ 



h 



FLO AT 3 2 
FLO AT 3 2 
FLO AT 3 2 



Wj FLOAT3 2 
U FLO AT 3 2 
} W LANC CELLS; 



berr ; 
berr_l ; 
delta; 
err; 
f err ; 
gamma; 
gamma_l ; 
rho; 

delta_l; 
Bserr ; 
Bserr 1; 



typedef struct { 

INT3 2 cc; 

FLO AT 3 2 lambda; 

FLOAT 3 2 min_error ; 

LANC_CELLS * c e 1 1 s ; 
} LANC_Context; 



extern LANC 
LANC_Init( 
INT3 2 
FLO AT 3 2 
FLO AT 3 2 



Context * 



num_cells, 
lambda, 
min_error) ; 



/* number of cells 

/* put in value for lambda 

/* parameter 

/* point to array of ANC_CELLS 



/* number of cells 
/* lambda param 
/* min error 



extern VOID 
LANC_Done ( 

LANC_Context 

extern VOID 
LANC_Reset( 

LANC Context 



*c) ; 



*anc) ; 



extern FLOAT32 
LANC_Calc( 

LANC_Context 

FLOAT32 

FLO AT 3 2 



*anc, /* input, context handle 
nps, /* input, noise plus signal 
noise) ; /* input, noise reference 



*/ 
*/ 
*/ 



/* The following macros provide efficient access to the lattice */ 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



ine 



#df!f ine 
#d^j|ine 
#d||ine 

#d|line 
#d|4ine 
#d|rf ine 
#define 

m 

#d|g§ine 
#deiine 

m 

/define 
#def ine 



/define 



ANC_CELL_SIZE 11 








xBERR 0 










xBERR 1 1 










X DELTA 2 










XDELiTA 1 3 










XGAMMA 4 










XGAMMA 1 5 










XBSERR 6 










AOuijX\i\ X / 










XERR ~~ 8 










xFERR 9 










xRho 10 










berr 


( 


(P 




xBERR) ) 


P_berr_l 


(* 


(P 


+ 


XBERR 1 - ANC CELL SIZE)) 


P_berr 


(* 


(P 


+ 


XBERR - ANC_CELL_SIZE) ) 


berr 1 


/ 4. 
I 


(P 


+ 


XBERR_1) ) 


Bserr 


( * 


(P 


+ 


XBSERR) ) 




( * 


(P 




XBSERR 1) ) 


P_Bserr_l 


(* 


(P 


+ 


XBSERR_1 - ANC_CELL_SIZE) ) 


P delta 


(* 


(P 


t 

T 




delta 


(* 


(P 


t 

i 


XUrjLilA) ) 


delta 1 


(* 


(P 


1 

T 




P delta 1 

XT UC1 UQ X 


( * 


IP 


_L_ 
1 


v pv"pT mA 1 A Mr* PTT T CT7T?\ \ 


err 


(* 


(P 


+ 


XERR) ) 


N_err 


(* 


IP 


4- 




P_f err 


(* 


(P 


+ 


xFERR - ANC CELL SIZE)) 


f err 


(* 


(P 


+ 


XFERR) ) 


gamma 


(* 


(P 


+ 


XGAMMA) ) - 


P_gamma 


(* 


(P 


+ 


XGAMMA - ANC CELL SIZE)) 


N_gamma 


(* 


(P 


+ 


XGAMMA + ANC CELL SIZE)) 


P_gamma_l 


(* 


(P 


+ 


XGAMMA 1 - ANC CELL SIZE)) 


gamma_l 


(* 


(P 


+ 


XGAMMA_1) ) 


rho 


(* 


(P 


+ 


xRho) ) 



/* 

Name: LANC_Init 

Abstract: Create an ANC context 



extern LANC_Context * 
LANC_Init( 

INT32 num_cells, /* number of cells */ 

FLOAT3 2 lambda, /* lambda par am */ 

FLO AT 3 2 min_error) { /* min error */ 

LANC_Context *anc; /* context */ 



anc = (LANC_Context *) malloc (sizeof (LANC_Context) ) ; 
assert(anc != NULL); 
anc->cc = num_cells; 
anc-> lambda = lambda; 
anc->min_error = min_error; 

anc->cells = (LANC_CELLS *)malloc (sizeof (LANC_CELLS) * (num_cells + 2)); 
assert (anc->cells != NULL); 

return (anc) ; 

} 



/* 

Name : LANC_Reset 

Abstract: Reset an ANC context 

U. . ■ * 

a */ 

extern VOID 
LANf _Reset ( 

ii^LANC_Context *anc) { 

in 

, FLOAT3 2 *p ; 

s INT32 m; 

JJp = (FLO AT 3 2 *)anc->cells; 

w for 



(m = 0; 


m 


<= anc->cc; m++) 


rho 




0.0; 


err 




0.0; 


f err 




0.0; 


berr 




0.0; 


berr 1 




0.0; 


delta 




0.0; 


delta_l 




0.0; 


Bserr 




anc->min_error ; 


Bserr_l 




anc->min error; 


gamma 




MIN VAL; 


gamma 1 




MIN VAL; 


P 


f= 


ANC CELL SIZE; 



} 

p = (FLOAT32 *)anc->cells; /* Cell # 0 special case 

gamma =1.0; 
gamma_l = 1.0; 



/* 

Name : LANC_Done 

Abstract: Delete an ANC context 



*/ 



extern VOID 
LANC_Done ( 

LANC_Context *anc) { 

f ree (anc->cells) ; 
free(anc) ; 

} 

/* 

Name : LANC_Calc 

Abstract: Calculate 



FLO AT 3 2 
LANC_Calc( 

LANC_Context 

FLOAT32 

FLOAT32 

{ 

U INT3 2 
O FLOAT 3 2 
FLOAT32 
fft: FLOAT 3 2 



*anc, 

nps, 

noise) 



/* input, context handle 
/* input, noise plus signal 
/* input, noise reference 



*/ 
*/ 
*/ 



m; 
*Pi 



B,F,B2,F2; 
qd2 , qd3 ; 
outputcell; 



B 

CI 

u 



INT3 2 

/* Update time delay elements in cell structure 

p = (FLOAT32 *)anc->cells; 
for (m = 0; m <= anc->cc; m++) { 
gamma_l = gamma; 
berr_l = berr; 
Bserr_ 1 = Bserr; 
delta_l = delta; 
p += ANC CELL SIZE; 



/* Handle Cell # 0 */ 

p = (FLOAT32 *)anc->cells; 

Bserr = anc->lambda * Bserr_l + noise * noise; 
Bserr = MAX (Bserr, MIN_BSERR) ; 

ferr = noise / SQRTF (Bserr) ; 
ferr = MAX(ferr, MIN_DEL) ; 
ferr = MIN(ferr, MAX_DEL) ; 

berr = ferr; 

rho = anc->lambda * SQRTF (Bserr_l / Bserr) * rho + berr * nps; 
N_err = nps - rho * berr; 

output_cell = anc->cc - 1; /* Assume last cell for starter */ 

for (m = l; m < anc->cc; m++) { 
p += ANC CELL SIZE; 



B = SQRTF(1,0 - P_berr_l * P_berr_l) ; B2 = 1.0/B; 



Q 

Hi 



1 > 

Q 



F = SQRTF(1.0 - P_ferr * P_ferr ); F2 = 1.0/F; 

P_delta = P_delta_l * F * B + P_berr_l * P_ferr; 
P_delta = MAX(P_delta, MIN_DEL) ; » 
P_delta = MIN(P_delta, MAX_DEL) ; 
qd3 = 1.0 - P_delta * Pdelta; 
qd2 = 1.0 / SQRTF(qd3); 

ferr = (P_ferr - P_delta * P_berr_l) * qd2 * B2; 
ferr = MAX (ferr, MIN_DEL) ; 
ferr = MIN (ferr, MAX_DEL) ; 

berr = (P_berr_l - P_delta * P_ferr ) * qd2 * F2; 
berr = MAX (berr, MIN_DEL) ; 
berr = MIN(berr, MAX_DEL) ; 

gamma = P_gamma * (1.0 - P_berr * P_berr) ; 
gamma = MAX (gamma, MIN_VAL) ; 
gamma = MIN (gamma, MAX_DEL) ; 

Bserr = P_Bserr_l * qd3 ; 

Bserr = MAX (Bserr, MIN_BSERR) ; 

rho *= anc->lambda * SQRTF ( (Bserr_l / Bserr) * (gamma / gamma_l)); 

rho += berr * err; 

rho = MAX (rho, MIN_RH0) ; 

rho = MIN (rho, MAX_RH0) ; 

N_err = err - rho * berr; 



* p - (FLOAT32 *) &(anc->cells[output_cell /* *ANC_CELL_SIZE */]); 
4 return (N_err) ; 



APPENDIX D 



QRD 



/include <stdlib.h> 
/include <math.h> 



/define TRUE 
/define FALSE 



1 
0 



/define FLOAT 3 2 
/define INT32 
/define VOID 

/define FABSF 
/define SQRTF 



float 
long int 
void 

f abs 
sqrt 



typedef struct { 

INT32 dummy; 
} LQRDJPEF_CONTEXT; 

typedef LQRDJPEF_CONTEXT * LQRDJPEF_Handle; 



extern LQRDJPEF Handle 
LQf|DJPEF_Init( 



e*t INT3 2 
m FLO AT 3 2 
jjj FLO AT 3 2 
12 FLO AT 3 2 



FLO AT 3 2 



rn VOID 



NumCells, 
Lambda , 
SumErrlnit, 
Gamslnit, 
MinSumErr) ; 



LQRDJPEF_Done( 

Q LQRDJPEF Handle hJPE) ; 

exPfefern VOID 
LQ§bJPEF_Reset( 

0 LQRDJPEF Handle hJPE) ; 

pi 

extern FLOAT32 

LQRDJPEF_Calc( 

LQRDJPEF_Handle hJPE, 
FLOAT3 2 nps, 
FLO AT 3 2 noise) ; 



/* handle 

/* noise plus signal 
/* noise reference 



/define MAX(a,b) (a) > (b) ? (a) : (b) 
#define MIN(a,b) (a) < (b) ? (a) : (b) 



LQRDJPEF^ 


_CELL_ 


SIZE 






struct { 










FLO AT 3 2 


sinf 


, sinf_ 


1 




FLOAT32 


sinb 


, sinb_ 


^1 


7 


FLO AT 3 2 


cosf 


, cosf_ 


1 




FLO AT 3 2 


cosb 


, cosb_ 


1 


7 


FLO AT 3 2 


epsf ; 









27 



FLO AT 3 2 epsb , epsb_l ; 



FLO AT 3 2 pief 
FLOAT32 pieb 



pief_l 
pieb 1 



FLO AT 3 2 Fserr, Fserr_l, SQRTF_Fserr, SQRTF_Fserr_l; 
FLOAT32 Bserr_l, Bserr_2 , SQRTF_Bserr_l , SQRTF_Bserr_2 ; 

FLOAT32 p_l, p_2; 
FLOAT32 gams_l; 
FLO AT 3 2 epsi_l; 



} LQRD JPEF_CELL ; 

typedef struct { 

INT32 

FLOAT 3 2 

FLOAT32 

FLOAT32 

FLOAT32 

FLOAT 3 2 

FLOAT 3 2 

LQRD JP EF_CELL 
} H LQRDJPEF Context; 



NumCells; 
Lambda ; 
SumErrlnit; 
Gamslnit; 
MinSumErr; 
SQRTF_Lambda ; / * 
SQRTF_SumErr Init ; / * 
*cells; /* 



/* 
/* 
/* 
/* 
/* 
/* 



number of cells 
Lambda 

Initial value for Fserr , Bserr 
Initial value for gams 
Minimum for Fserr, Bserr 
square root of Lambda 
square root of SumErrlnit 
point to array of JPE_CELLS 



ru 



The following macros provide efficient access to the lattice 
Define variables offsets within structure 



*f ine 
/define 
/define 
#dkf ine 



/define 
/define 
#dyf ine 



/define 
/define 
/define 



xSINF 
xSINF_l 
xSINB 
xSINB_l 

XCOSF 
XC0SF_1 
xCOSB 
XC0SB_1 

xEPSF 
XEPSB 
XEPSB 1 



/define xPIEF 
/define xPIEF_l 
/define xPIEB 
/define xPIEB_l 

/define xFSERR 

/define xFSERR_l 

/define xSQRTF_FSERR 

/define xSQRTF FSERR 1 



0 
1 

2 
3 

4 
5 
6 
7 

8 
9 

10 

11 
12 
13 
14 

15 
16 
17 
18 



/define xBSERR_l 19 

/define xBSERR_2 20 

/define xSQRTF_BSERR_l 21 

/define xSQRTF BSERR 2 22 



/define xp_i 
/define xp 2 



23 
24 



#define xGAMSQ_l 
#define xEPSI 1 



25 
26 



#define sinf 
/define sinf_l 
/define P_sinf 
/define P_sinf_l 

/define sinb 
/define sinb_l 
/define P_sinb 
/define P_sinb_l 

/define cosf 
/define cosf_l 
/define P_cosf 
/define P_cosf_l 

/define cosb 
/define cosb_l 
/define P_cosb 
/define P cosb 1 

/define epsf 
/define P epsf 

/di|fine epsb 

/d|^ine epsb_l 

/digfcine P_epsb 

/define P_epsb_l 

/define pief 
/dgCine pief_l 
/d|fefine P_pief 
/define P pief 1 

'itSi — — 

/dlgtine pieb 
/define pieb_l 
/define P_pieb 
#define P_pieb_l 



#define Fserr 
/define Fserr_l 
/define P_Fserr 
/define P_Fserr_l 
/define SQRTF_Fserr 
/define SQRTF_Fserr_l 
/define SQRTF_P_Fserr 
/define SQRTF_P_Fserr_l 

/define Bserr_l 
/define Bserr_2 
/define P_Bserr_l 
/define P_Bserr_2 
/define SQRTF_Bserr_l 
/define SQRTF_Bserr_2 
/define SQRTF_P_Bserr_l 
/define SQRTF P Bserr 2 



*(ptr + xSINF)) 
*(ptr + xSINF_l) ) 

*(ptr + xSINF - LQRD JP EF_CELL_S I Z E ) 
*(ptr + xSINF_l - LQRDJPEF_CELL_SIZE) 

*(ptr + xSINB) ) 
*(ptr + xSINB_l)) 

*(ptr + XSINB - LQRDJPEF_CELL_SIZE) 
*(ptr + XSINB_1 - LQRD JPEF_CELL_SI ZE) 

*(ptr + xCOSF)) 
*(ptr + xCOSF_l) ) 

*(ptr + XCOSF - LQRD JPEF_C ELL_S I Z E ) 
*(ptr + XC0SF_1 - LQRD JPEF_C ELL_S I Z E ) 

*(ptr + XCOSB) ) 
*(ptr + XC0SB_1)) 

*(ptr + XCOSB - LQRDJPEF_CELL_SIZE) 

*(ptr + XC0SB_1 - LQRDJPEF_CELL_SIZE) 

*(ptr + XEPSF) ) 

*(ptr + XEPSF - LQRDJPEF_CELL_SIZE) 

*(ptr + XEPSB) ) 
*(ptr + XEPSB_1)) 

*(ptr + XEPSB - LQRD J P EF_C ELL_S I Z E ) 
*(ptr + XEPSB_1 - LQRD JP EF_C ELL_SI Z E ) 

*(ptr + xPIEF) ) 
*(ptr + xPIEF_l) ) 

*(ptr + xPIEF - LQRDJPEF_CELL_SIZE) 
*(ptr + xPIEF_l - LQRD JPEF_CELL_SI ZE ) 

*(ptr + XPIEB) ) 
*(ptr + XPIEB_1) ) 

*(ptr + XPIEB - LQRD JPEF_CELL_SI ZE ) 
*(ptr + XPIEB_1 - LQRD JPEF_CELL_SI ZE ) 



*(ptr + XFSERR) ) 
*(ptr + xFSERR_l)) 

*(ptr + XFSERR - LQRDJPEF_CELL_SIZE) ) 
*(ptr + XFSERR_1 - LQRDJPEF_CELL_SIZE) ) 
*(ptr + xSQRTFFSERR) ) 
*(ptr + xSQRTF_FSERR_l) ) 

*(ptr + xSQRTF_FSERR - LQRDJPEF_CELL_SIZE) ) 
*(ptr + XSQRTF_FSERR_1 - LQRDJPEF_CELL_SIZE) ) 

*(ptr + xBSERR_l) ) 
*(ptr + XBSERR_2) ) 

* (ptr + XBSERR_1 - LQRD JPEF_CELL_S I Z E ) ) 
*(ptr + xBSERR_2 - LQRDJPEF_CELL_SIZE) ) 
*(ptr + XSQRTF_BSERR_1) ) 
*(ptr + XSQRTF_BSERR_2 ) ) 

*(ptr + xSQRTF_BSERR_l - LQRDJPEF_CELL_SIZE) ) 
*(ptr + XSQRTF BSERR 2 - LQRDJPEF CELL SIZE)) 



• 



#def ine 



p_l 


(*(ptr 


+ 


xp_l)) 








P_2 


(*(ptr 


+ 


xp_2)) 








P r> 1 






xp J. 




pry t 


016L ) J 


P_P_2 


(*(ptr 


+ 


xp_2 


lqrdjpef" 


~CELL~ 


~SIZE) ) 


gams_l 


(*(ptr 


+ 


XGAMSQ 1) ) 








P_gams_l 


(*(ptr 


+ 


XGAMSQ_1 - 


LQRDjPEF 


CELL_ 


SIZE) ) 


epsi_l 


(*(ptr 


+ 


XEPSI 1)) 








P_epsi_l 


(*(ptr 


+ 


xEPSI_l - 


LQRDJPEF_ 


CELL_ 


SIZE) ) 



Static FLOAT 3 2 
RSQRTF ( 

FLO AT 3 2 X) { 



} 

/* 



return 1.0F / SQRTF(x) ; 



Name : LQRDJPEF_Init 

Abstract : Create a JPE context 



tiwl:. 



extern LQRDJPEF_Handle 
LQjgDJPEF_Init( 



m 
ru 

m 



INT32 
FLO AT 3 2 
FLO AT 3 2 
FLOAT 3 2 
FLO AT 3 2 



NumCells, 
Lambda , 
SumErrlnit, 
Gamslnit, 
MinSumErr) { 



LQRDJPEF Context 



*jpe; 



jpe = malloc(sizeof (LQRDJPEF_Context) ) ; 
assert(jpe != NULL) ; 

jpe->NumCells = NumCells; 

jpe->Lambda = Lambda; 

jpe->SumErrInit = SumErrlnit; 

jpe->GamsInit = Gamslnit; 

jpe->MinSumErr = MinSumErr;" 

jpe->SQRTF_Lambda = SQRTF ( jpe->Lambda) ; 

jpe->SQRTF_SumErrInit = SQRTF (jpe->SumErrInit ) ; 

jpe->cells = malloc (sizeof (LQRDJPEF_CELL) * (NumCells + 2) ) ; 
assert (jpe->cells !=NULL); 



LQRDJPEF_Reset ( (LQRDJPEF_Handle) jpe) ; 
return ( (LQRDJPEF_Handle) jpe) ; 



/* 

Name : LQRDJPEF Done 

Abstract : Delete a JPE context 



extern VOID 
LQRDJPEF_Done ( 



ff 




LQRDJPEF_Handle 

LQRDJPEF_Context 

free ( jpe->cells) ; 
free( jpe) ; 



hJPE) { 

*jpe = (LQRDJPEFContext *)hJPE; 



Name : LQRDJPEF_Reset 

Abstract : Reset a JPE context 



extern VOID 
LQRDJPEF_Reset ( 

LQRDJPEF Handle 



go* 



m 



m 



/* 



hJPE) { 

LQRDJPEF_Context *jpe = ( LQRD JPEF_Context *)hJPE; 



FLOAT32 
INT32 



*ptr; 

m;' 



ptr = (FLO AT 3 2 *) jpe->cells; 

for (m = 0; m <= jpe->NumCells; m++) { 



sinf 




O.OF; 


sinb 




O.OF; 


cosf 




O.OF; 


cosb 




O.OF; 


epsf 




O.OF; 


epsb 




O.OF; 


pief 




O.OF; 


pieb 




O.OF; 


P_l 




O.OF; 


Fserr 




jpe->SumErrInit; 


Bserr_l 




jpe->SuroErrInit; 


gams_l 




jpe->Gams!nit ; 



SQRTF_Fserr = jpe->SQRTF_SumErrInit ; 
SQRTF_Bserr_l = jpe->SQRTF_SumErrInit ; 



ptr 
} 



+= LQRD JPEF_CELL_SI ZE ; 



ptr = (FLO AT 3 2 *) jpe->cells; 
gams_l = l.OF; 



/* Cell # 0 special case 



Name 

Abstract 



: LQRDJPEF Calc 



extern FLOAT 3 2 
LQRDJPEF_Calc( 

LQRDJPEF_Handle hJPE, 

FLOAT32 nps, /* noise plus signal */ 

FLO AT 3 2 noise) { /* noise reference */ 

LQRDJPEFContext *jpe = ( LQRD JPEF_Context *)hJPE; 



INT32 m; 




FLO AT 3 2 *ptr; 
FLOAT 3 2 trap; 

Time update section */ 

ptr = (FLOAT32 *) jpe->cells; 

for (m = 0; m <= 3p^->NumCells; m++) { 

/* some of following delay elements are not needed */ 

sinf_l = sinf; 

sinb_l = sinb; 

cosf_l = cosf; 

cosb_l = cosb; 

epsb_l = epsb; 

pief_l = pief ; 

piebJL = pieb; 

Fserr_l = Fserr; 
Bserr_2 = Bserr_l; 
p_2 = p_l; 

SQRTF_Bserr_2 = SQRTF_Bserr_l ; 
SQRTF_Fserr_l = SQRTF_Fserr; 

ptr += LQRDJPEF_CELL_SIZE; 
} 

/* Order update section */ 
/* Handle Cell #0 */ 

ptr = (FLOAT 3 2 *) (jpe->cells) ; /* point to cell # 0 */ 
epsf = noise; 
epsb = noise; 
epsi_l = nps; 

/* rest of cells */ 

for (m = 1; m < jpe->NumCells; m++) { 

ptr += LQRDJPEF_CELL_SIZE; /* access next cell */ 

/* Prediction section */ 

P_Bserr_l = jpe->Lambda * P_Bserr_2 + P_epsb_l * P_epsb_l 
P_Bserr_l = MAX (P_Bserr_l , jpe->MinSumErr) ; ** ~ 

SQRTF_P_Bserr_l = SQRTF(P_Bserr_l) ; 

tmp = RSQRTF(P_JBserr_l) ; /* this comes free on DSP */ 

P_cosb_l = jpe->SQRTF_Lambda * SQRTF_JP_Bserr_2 * tmp; 

P_sinb_l = P_epsb_l * tmp; 

tmp = jpe->SQRTF_Lambda * P_pief_l; 

epsf = P_cosb_l * P_epsf - P_sinb_l * tmp; 

P_pief = P_cosb_l * tmp + P_sinb_l * P_epsf ; 

gams 1 = P cosb 1 * P gams 1; 



P_Fserr = jpe->Lambda * P_Fserr_l + P_epsf * P_epsf; 
P_Fserr = MAX(P_Fserr, jpe->MinSumErr) ; 

SQRTF_P_Fserr = SQRTF(PFserr) ; 

tmp = RSQRTF (P_Fserr ) ; /* this comes free on DSP */ 

P_cosf = jpe->SQRTF_Lambda * SQRTF_P_Fserr_l * tmp; 

P_sinf = P_epsf * tmp; 

tmp = jpe->SQRTF_Lambda * P_pieb_l; 

epsb = P_cosf * P_epsb_i - Psinf * tmp; 

P_pieb = P_cosf * tmp + P_sinf * Pepsbl; 

/* Joint Process Estimation section */ 

tmp = jpe->SQRTF_Lambda * P_p_2 ; 

epsi_l = P_cosb_l * P_epsi_l - Psinbl * tmp; 
P_P_1 = P_cosb_l * tmp + Psinbl * P_epsi_l; 

} 

ptr += LQRDJPEF_CELL_SIZE; /* access next cell */ 

/* Do minimum work for JPE of very last cell 

only four equations are required for prediction section 

P_Bserr_l = jpe->Lambda * P_Bserr_2 + P_epsb_l * P_epsb 1; 
P_Bserr_l = MAX (P_Bserr_l, jpe->MinSumErr) ; ~ " ~ 

SQRTF_P_Bserr_l = SQRTF (P_Bserr_l) ; 

tmp = RSQRTF (P_Bserr_l) ; /* this comes free on DSP */ 
P_cosb_l = jpe->SQRTF_Lambda * SQRTF_P_Bserr_2 * tmp; 
P_sinb_l = p_epsb_l * tmp; 

/* Joint Process Estimation for last cell */ 
tmp = jpe->SQRTF_Lambda * P_p_2; 

epsi_i = P_cosb_l * P_epsi_l - Psinbl * tmp; 
P _P_1 = P_cosb_l * tmp + P_sinb_l * P_epsi_l; 

gams_l = p_cosb_l * P_gams_l; 
return(gams_l * epsi_l) ; 



